home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / mainfrm.frm < prev    next >
Text File  |  1997-12-02  |  5KB  |  180 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Object Editor"
  5.    ClientHeight    =   2055
  6.    ClientLeft      =   4365
  7.    ClientTop       =   2295
  8.    ClientWidth     =   6585
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2055
  13.    ScaleWidth      =   6585
  14.    Begin VB.CommandButton Command3 
  15.       Caption         =   "About"
  16.       Height          =   255
  17.       Left            =   3240
  18.       TabIndex        =   7
  19.       Top             =   1680
  20.       Width           =   975
  21.    End
  22.    Begin VB.CommandButton Command2 
  23.       Caption         =   "Revert"
  24.       Height          =   255
  25.       Left            =   1200
  26.       TabIndex        =   6
  27.       Top             =   1680
  28.       Width           =   975
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "Save"
  32.       Height          =   255
  33.       Left            =   120
  34.       TabIndex        =   5
  35.       Top             =   1680
  36.       Width           =   975
  37.    End
  38.    Begin VB.ComboBox Combo1 
  39.       Height          =   315
  40.       Left            =   120
  41.       Style           =   2  'Dropdown List
  42.       TabIndex        =   4
  43.       Top             =   480
  44.       Visible         =   0   'False
  45.       Width           =   4095
  46.    End
  47.    Begin VB.TextBox Text1 
  48.       Height          =   285
  49.       Left            =   120
  50.       Locked          =   -1  'True
  51.       TabIndex        =   3
  52.       Text            =   "TagName"
  53.       Top             =   120
  54.       Width           =   4095
  55.    End
  56.    Begin VB.HScrollBar HScroll1 
  57.       Height          =   255
  58.       Left            =   120
  59.       Max             =   100
  60.       Min             =   1
  61.       TabIndex        =   2
  62.       Top             =   840
  63.       Value           =   1
  64.       Width           =   4095
  65.    End
  66.    Begin VB.TextBox Text2 
  67.       Height          =   285
  68.       Left            =   120
  69.       TabIndex        =   1
  70.       Top             =   480
  71.       Width           =   4095
  72.    End
  73.    Begin VB.ListBox List1 
  74.       Height          =   1815
  75.       Left            =   4320
  76.       TabIndex        =   0
  77.       Top             =   120
  78.       Width           =   2175
  79.    End
  80. End
  81. Attribute VB_Name = "Form1"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86.  
  87. Private Sub Combo1_Click()
  88. If Combo1.Text <> "" Then Objects(CObj).Tags(Form1.HScroll1.Value) = Combo1.Text
  89. End Sub
  90.  
  91. Private Sub Command1_Click()
  92. Call SaveObjz
  93. End Sub
  94.  
  95. Private Sub Command2_Click()
  96. Call LoadObjz
  97. End Sub
  98.  
  99. Private Sub Command3_Click()
  100. AboutFrm.Show
  101. End Sub
  102.  
  103. Private Sub Form_Load()
  104.  
  105. Form1.List1.AddItem "[New Object]"
  106.  
  107. Call LoadObjectTags
  108. Call LoadObjz
  109.  
  110. If Form1.List1.ListCount = 1 Then Form1.List1.ListIndex = 0 Else Form1.List1.ListIndex = 1
  111. End Sub
  112.  
  113. Private Sub Form_Unload(Cancel As Integer)
  114. Style = vbYesNo
  115. Response = MsgBox("Save Changes?", Style)
  116. If Response = vbYes Then
  117.   Call SaveObjz
  118. End If
  119. End Sub
  120.  
  121. Private Sub HScroll1_Change()
  122. DoEvents
  123. Call UpdatePage
  124. End Sub
  125.  
  126. Private Sub List1_Click()
  127. If CObj <> List1.ListIndex Then
  128.     CObj = List1.ListIndex
  129.     If List1.ListIndex = 0 Then
  130.       If HScroll1.Value <> 1 Then HScroll1.Value = 1: DoEvents: Call UpdatePage
  131.       HScroll1.Enabled = False
  132.     Else
  133.       HScroll1.Enabled = True
  134.     End If
  135.     If List1.ListIndex = 0 Then HScroll1.Value = 1
  136.     Call UpdatePage
  137. End If
  138. End Sub
  139.  
  140. Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
  141. If KeyCode = 46 Then 'delete
  142.   If List1.ListIndex <> 0 Then
  143.     pp = List1.ListIndex
  144.     For i = List1.ListIndex To MAXOBJZ - 1
  145.       Objects(i).active = Objects(i + 1).active
  146.       For i2 = 1 To TAGDEFMAX
  147.         Objects(i).Tags(i2) = Objects(i + 1).Tags(i2)
  148.       Next i2
  149.     Next i
  150.     Objects(MAXOBJZ).active = False
  151.     For i2 = 1 To TAGDEFMAX
  152.       Objects(MAXOBJZ).Tags(i2) = ""
  153.     Next i2
  154.     List1.ListIndex = pp - 1
  155.     Call UpdatePage
  156.   End If
  157. End If
  158. End Sub
  159.  
  160. Private Sub Text2_Change()
  161. If Text2.Text <> "-Enter a value-" Then
  162.     If List1.ListIndex = 0 Then
  163.       For i = 1 To MAXOBJZ
  164.         If Objects(i).active = False Then
  165.           Objects(i).active = True
  166.           CObj = i
  167.           Objects(CObj).Tags(1) = Text2.Text
  168.           SS = Text2.SelStart
  169.           Call UpdatePage
  170.           List1.ListIndex = List1.ListCount - 1
  171.           Text2.SelStart = SS
  172.           Exit For
  173.         End If
  174.       Next i
  175.     End If
  176. End If
  177. If Text2.Text <> "-Enter a value-" Then If List1.ListIndex <> 0 Then Objects(CObj).Tags(Form1.HScroll1.Value) = Text2.Text
  178. Call UpdatePage
  179. End Sub
  180.